home *** CD-ROM | disk | FTP | other *** search
- ;;; ENGLISH: Site specific definitions, to be modified on installation
- ;;; DEUTSCH: Funktionen, die beim Transportieren zu ändern sind
- ;;; FRANCAIS: Fonctions dépendantes de l'installation
-
- (in-package "LISP")
- (mapcar #'fmakunbound '(machine-type machine-version machine-instance
- short-site-name long-site-name
- edit-file editor-tempfile))
-
- (defun machine-type () "Acorn")
- (defun machine-version () "Risc PC, OS 3.5")
- (defun machine-instance () "Burwood's Risc PC")
-
- (defun short-site-name () "Home")
- (defun long-site-name () "Burwood's Home, England")
-
- ;; ENGLISH: (edit-file file) edits a file.
- ;; DEUTSCH: (edit-file file) editiert eine Datei.
- ;; FRANCAIS: (edit-file file) permet l'édition d'un fichier.
- (defun edit-file (file)
- (shell (format nil "filer_run ~A" (truename file)))
- )
-
- ;; ENGLISH: The temporary file LISP creates for editing:
- ;; DEUTSCH: Das temporäre File, das LISP beim Editieren anlegt:
- ;; FRANCAIS: Fichier temporaire créé par LISP pour l'édition :
- (defun editor-tempfile ()
- ; We write this instead of "<Wimp$ScrapDir>.lisptemp" in order to
- ; make sure that all the components of (sys::getenv "Wimp$ScrapDir")
- ; are treated as directory components.
- (merge-pathnames "lisptemp" "<Wimp$ScrapDir>.")
- )
-
- ;; ENGLISH: The list of directories where programs are searched on LOAD etc.:
- ;; DEUTSCH: Die Liste von Directories, in denen Programme bei LOAD etc. gesucht
- ;; werden:
- ;; FRANCAIS: Liste de répertoires où chercher un fichier programme:
- (defparameter *load-paths* '(#"@.")) ; may add #"@.***." when this will be implemented
-
-